home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Util / Screen / NewMode_V36.lha / newmode / NewMode-Install2 < prev    next >
Text File  |  1995-05-17  |  4KB  |  153 lines
  1. ;$VER: NewMode Install 1.04 (17.5.95)
  2. ;Written 1994-95 by Thomas Kessler
  3. ;All rights reserved 1994-95 Andreas Linnemann
  4.  
  5. (set old-level @user-level)
  6.  
  7. ;english (default)
  8. (set #na "\n Read the documentation for help.")
  9. (set #ultimate "the ultimate screen-promotor\n\n")
  10. (set #rights "All rights reserved.\n")
  11. (set #instscr "Install-script by")
  12. (set #install "Install/Update NewMode")
  13. (set #remove "Remove NewMode")
  14. (set #isinst "is now installed.\n\n")
  15. (set #reboot (cat "Please reboot now or double-click the\nNewMode-icon in \"SYS:WBStartup\"\nto start the program."))
  16. (set #isrem "has been removed from your system and memory!")
  17. (set #isremold (cat "Your previous installed version of NewMode\n" #isrem "\n\n"))
  18. (set #delconf "Do you want to delete your\npersonal NewMode config file, too?")
  19. (set #yes "Yes, delete!")
  20. (set #no "No")
  21.  
  22. ;deutsch
  23. (if (exists "LOCALE:catalogs/deutsch")
  24.     (
  25.         (set #na "\n Lesen Sie bitte die Anleitung.")
  26.         (set #ultimate "der ultimative Screen-Promotor\n\n")
  27.         (set #rights "Alle Rechte vorbehalten.\n")
  28.         (set #instscr "Installations-Skript von")
  29.         (set #install "Installieren/Aktualisieren")
  30.         (set #remove "Entfernen")
  31.         (set #isinst "wurde installiert.\n\n")
  32.         (set #reboot (cat "Bitte machen Sie jetzt einen Reset oder starten\nSie das Programm über das NewMode-Icon im\nVerzeichnis \"SYS:WBStartup\".\n"))
  33.         (set #isrem "wurde aus System und Speicher entfernt!")
  34.         (set #isremold (cat "Ihre bislang installierte NewMode-Version\n" #isrem "\n\n"))
  35.         (set #delconf "Wollen Sie auch Ihre persönliche\nNewMode Konfigurationsdatei löschen?")
  36.         (set #yes "Ja, löschen!")
  37.         (set #no "Nein")
  38.     )
  39. )
  40.  
  41. (run (prompt "Version") (help #na) "Version NewMode FULL >ENV:NewMode.Version")
  42. (set #newmode-version-full (getenv "NewMode.Version"))
  43. (delete (prompt "Cleanup") (help #na) "ENV:NewMode.Version" (optional force))
  44.  
  45. (user 2)
  46. (set what
  47.     (askchoice
  48.         (prompt "\n"#newmode-version-full
  49.             #ultimate
  50.             "NewMode © 1992-95 Andreas Linnemann\n"
  51.             #instscr " Thomas Kessler\n"
  52.             #rights
  53.         )
  54.         (help #na)
  55.         (choices #install #remove)
  56.     )
  57. )
  58. (complete 10)
  59. (user old-level)
  60. (set rc (run (prompt "Killer") (help #na) "KillNewMode"))
  61. (complete 20)
  62. (if what
  63.     (
  64.         (delete
  65.             (prompt "Remove")
  66.             (help #na)
  67.             "SYS:WBStartup/NewMode"
  68.             (optional force)
  69.         )
  70.         (complete 40)
  71.         (delete
  72.             (prompt "Remove")
  73.             (help    #na)
  74.             "SYS:WBStartup/NewMode.info"
  75.             (optional force)
  76.         )
  77.         (complete 60)
  78.         (delete
  79.             (prompt "Remove")
  80.             (help    #na)
  81.             "LOCALE:catalogs/deutsch/NewMode.catalog"
  82.             (optional force)
  83.         )
  84.         (complete 80)
  85.         (user 2)
  86.         (set del
  87.             (askbool
  88.                 (prompt "\n\n\n\n\n"#delconf)
  89.                 (help #na)
  90.                 (choices #yes #no)
  91.             )
  92.         )
  93.         (user old-level)
  94.         (if del
  95.             (
  96.                 (delete
  97.                     (prompt "Remove")
  98.                     (help    #na)
  99.                     "ENV:NewMode.config"
  100.                     (optional force)
  101.                 )
  102.                 (delete
  103.                     (prompt "Remove")
  104.                     (help    #na)
  105.                     "ENVARC:NewMode.config"
  106.                     (optional force)
  107.                 )
  108.             )
  109.         )    
  110.         (complete 100)
  111.         (user 2)
  112.         (message "\n\n\n\nNewMode\n\n"#isrem)
  113.         (user old-level)
  114.     )
  115.     (
  116.         (if (NOT (exists "SYS:WBStartup/NewMode.info"))
  117.             (copyfiles
  118.                 (prompt "Install")
  119.                 (help #na)
  120.                 (source "NewMode.info")
  121.                 (dest "SYS:WBStartup")
  122.             )
  123.         )
  124.         (complete 50)
  125.         (copyfiles
  126.             (prompt "Install")
  127.             (help #na)
  128.             (source "NewMode")
  129.             (dest "SYS:WBStartup")
  130.         )
  131.         (complete 80)
  132.         (if (exists "LOCALE:catalogs/deutsch")
  133.             (copyfiles
  134.                 (prompt "Install")
  135.                 (help #na)
  136.                 (source "Catalogs/deutsch/NewMode.catalog")
  137.                 (dest "LOCALE:catalogs/deutsch")
  138.             )
  139.         )
  140.         (complete 100)
  141.         (user 2)
  142.         (message
  143.             (cat "\n\n\n"#newmode-version-full #isinst
  144.                 (if (= rc 0) #isremold)
  145.                 #reboot
  146.             )
  147.         )
  148.         (user old-level)
  149.     )
  150. )
  151. (exit (quiet))
  152. (welcome "")
  153.